; ORIGINAL: 3dt2.1/examples/listprnt.scm
; $Id: listprnt.scm,v 1.3 1996/10/21 15:59:15 aed Exp $
;- listprnt.scm ---------------------------------------------------
; Limit list printing to the first 20 elements.
;------------------------------------------------------------------
(set! print-length 20)
